home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 6 / demos / ellips.bas < prev    next >
Encoding:
BASIC Source File  |  1985-11-19  |  1.1 KB  |  21 lines
  1. 0     ' ST-BASIC "ELLIPSE.BAS": Created on 20-October-85 by R.VAN
  2. 1     ' (Attention beginning ST-BASIC hackers: Learn from this!)
  3. 2     ' Let's write a useless program in pOWeRFUl ST-BASIC shall we?
  4. 3     '
  5. 10    START: FullW 2: ClearW 2: Atari$=Chr$(14)+Chr$(15)
  6. 15    GotoXy 0,1: ? Atari$;" _SPEEDY ELLIPSE DRAW DEMO_ ";Atari$
  7. 20    ? "This demo draws 260 random ellipses"
  8. 25    ? "(in COLOR on TV/RGB units) using the"
  9. 30    ? "'PELLIPSE' ST-BASIC command.": ?: ? "You are in ";
  10. 35    If Peek(SysTab+0)=4 then Xmax=320:Ymax=200:Colrs=16:? "LOW";
  11. 40    If Peek(SysTab+0)=2 then Xmax=640:Ymax=200:Colrs=4:? "MEDIUM";
  12. 45    If Peek(SysTab+0)=1 then Xmax=640:Ymax=400:Colrs=2:? "HIGH";
  13. 50    ? "-Resolution mode.": ?: ? "Type [CTRL]-[G] to exit program."
  14. 55    Input "Type [RETURN] or [ENTER] to begin";Amiga$: ClearW 2
  15. 60    For Loop=1 to 260: Color 1,1+Rnd(1)*(Colrs-1),0,0,Rnd(1)*5
  16. 65    Pellipse Rnd(1)*Xmax,Rnd(1)*Ymax,20+Rnd(1)*90,20+Rnd(1)*40
  17. 70    Wave 8,3,0,3000,0: Next Loop: Goto START: ' Amazing!
  18. 100   '
  19. 101   ' That wasn't that painful was it?  Now let's run the program
  20. 102   ' and see the puppy work.
  21. əəəəəəəəəəəəəəə